home *** CD-ROM | disk | FTP | other *** search
Text File | 1996-05-01 | 4.2 KB | 131 lines | [TEXT/MPS ] |
- {
- File: CMConversions.p
-
- Contains: ColorSync base <-> derived color space conversion Component interface
-
- Version: Technology: ColorSync 2.0
- Release: Universal Interfaces 3.0d3 on Copland DR1
-
- Copyright: © 1984-1996 by Apple Computer, Inc. All rights reserved.
-
- Bugs?: If you find a problem with this file, send the file and version
- information (from above) and the problem description to:
-
- Internet: apple.bugs@applelink.apple.com
- AppleLink: APPLE.BUGS
-
- }
- {$IFC UNDEFINED UsingIncludes}
- {$SETC UsingIncludes := 0}
- {$ENDC}
-
- {$IFC NOT UsingIncludes}
- UNIT CMConversions;
- INTERFACE
- {$ENDC}
-
- {$IFC UNDEFINED __CMCONVERSIONS__}
- {$SETC __CMCONVERSIONS__ := 1}
-
- {$I+}
- {$SETC CMConversionsIncludes := UsingIncludes}
- {$SETC UsingIncludes := 1}
-
- {$IFC UNDEFINED __TYPES__}
- {$I Types.p}
- {$ENDC}
- {$IFC UNDEFINED __COMPONENTS__}
- {$I Components.p}
- {$ENDC}
- {$IFC UNDEFINED __CMAPPLICATION__}
- {$I CMApplication.p}
- {$ENDC}
-
- {$PUSH}
- {$ALIGN MAC68K}
- {$LibExport+}
-
- {$IFC FOR_SYSTEM7_AND_SYSTEM8_COOPERATIVE }
-
- CONST
- CMConversionInterfaceVersion = 1;
-
- { Component function selectors }
- kCMXYZToLab = 0;
- kCMLabToXYZ = 1;
- kCMXYZToLuv = 2;
- kCMLuvToXYZ = 3;
- kCMXYZToYxy = 4;
- kCMYxyToXYZ = 5;
- kCMRGBToHLS = 6;
- kCMHLSToRGB = 7;
- kCMRGBToHSV = 8;
- kCMHSVToRGB = 9;
- kCMRGBToGRAY = 10;
- kCMXYZToFixedXYZ = 11;
- kCMFixedXYZToXYZ = 12;
-
- FUNCTION CMXYZToLab(ci: ComponentInstance; {CONST}VAR src: CMColor; {CONST}VAR white: CMXYZColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
- {$IFC NOT GENERATINGCFM}
- INLINE $2F3C, $0010, $0000, $7000, $A82A;
- {$ENDC}
- FUNCTION CMLabToXYZ(ci: ComponentInstance; {CONST}VAR src: CMColor; {CONST}VAR white: CMXYZColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
- {$IFC NOT GENERATINGCFM}
- INLINE $2F3C, $0010, $0001, $7000, $A82A;
- {$ENDC}
- FUNCTION CMXYZToLuv(ci: ComponentInstance; {CONST}VAR src: CMColor; {CONST}VAR white: CMXYZColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
- {$IFC NOT GENERATINGCFM}
- INLINE $2F3C, $0010, $0002, $7000, $A82A;
- {$ENDC}
- FUNCTION CMLuvToXYZ(ci: ComponentInstance; {CONST}VAR src: CMColor; {CONST}VAR white: CMXYZColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
- {$IFC NOT GENERATINGCFM}
- INLINE $2F3C, $0010, $0003, $7000, $A82A;
- {$ENDC}
- FUNCTION CMXYZToYxy(ci: ComponentInstance; {CONST}VAR src: CMColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
- {$IFC NOT GENERATINGCFM}
- INLINE $2F3C, $000C, $0004, $7000, $A82A;
- {$ENDC}
- FUNCTION CMYxyToXYZ(ci: ComponentInstance; {CONST}VAR src: CMColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
- {$IFC NOT GENERATINGCFM}
- INLINE $2F3C, $000C, $0005, $7000, $A82A;
- {$ENDC}
- FUNCTION CMRGBToHLS(ci: ComponentInstance; {CONST}VAR src: CMColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
- {$IFC NOT GENERATINGCFM}
- INLINE $2F3C, $000C, $0006, $7000, $A82A;
- {$ENDC}
- FUNCTION CMHLSToRGB(ci: ComponentInstance; {CONST}VAR src: CMColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
- {$IFC NOT GENERATINGCFM}
- INLINE $2F3C, $000C, $0007, $7000, $A82A;
- {$ENDC}
- FUNCTION CMRGBToHSV(ci: ComponentInstance; {CONST}VAR src: CMColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
- {$IFC NOT GENERATINGCFM}
- INLINE $2F3C, $000C, $0008, $7000, $A82A;
- {$ENDC}
- FUNCTION CMHSVToRGB(ci: ComponentInstance; {CONST}VAR src: CMColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
- {$IFC NOT GENERATINGCFM}
- INLINE $2F3C, $000C, $0009, $7000, $A82A;
- {$ENDC}
- FUNCTION CMRGBToGray(ci: ComponentInstance; {CONST}VAR src: CMColor; VAR dst: CMColor; count: LONGINT): ComponentResult;
- {$IFC NOT GENERATINGCFM}
- INLINE $2F3C, $000C, $000A, $7000, $A82A;
- {$ENDC}
- FUNCTION CMXYZToFixedXYZ(ci: ComponentInstance; {CONST}VAR src: CMXYZColor; VAR dst: CMFixedXYZColor; count: LONGINT): ComponentResult;
- {$IFC NOT GENERATINGCFM}
- INLINE $2F3C, $000C, $000B, $7000, $A82A;
- {$ENDC}
- FUNCTION CMFixedXYZToXYZ(ci: ComponentInstance; {CONST}VAR src: CMFixedXYZColor; VAR dst: CMXYZColor; count: LONGINT): ComponentResult;
- {$IFC NOT GENERATINGCFM}
- INLINE $2F3C, $000C, $000C, $7000, $A82A;
- {$ENDC}
- {$ENDC}
- {$ALIGN RESET}
- {$POP}
-
- {$SETC UsingIncludes := CMConversionsIncludes}
-
- {$ENDC} {__CMCONVERSIONS__}
-
- {$IFC NOT UsingIncludes}
- END.
- {$ENDC}
-